(res (assoc key-lst alist))
(mode-alist (assq major-mode alist))
(mode-res (when mode-alist (assoc key-lst mode-alist)))
- (alternate (when (symbolp (key-binding (apply #'vector key-lst)))
- (symbol-name (key-binding (apply #'vector key-lst))))))
+ (binding (key-binding (apply #'vector key-lst)))
+ (alternate (when (and binding (symbolp binding))
+ (symbol-name binding))))
(cond (mode-res (cdr mode-res))
(res (cdr res))
((and (eq which-key-show-prefix 'echo) alternate)